﻿<!--#include file="conn2.asp"-->
<% 
dim us,ur,ur1,ur2,length,wstr,body,urt1
ur=Request.QueryString("us")
if ur="" then
%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><title>超级浏览器</title>
<meta name="viewport" content="width=device-width" />
<style  type="text/css">
/* ========电脑显示======== */
body {font-size:14px;line-height:1.3;width:210px;border:1px solid grey;padding:5px;margin:0 auto;margin-top:10px;margin-bottom:10px}

form {background:#F9F4E3}
img {border:0;}
a {font-size:14px;text-decoration:none;color:#1874CD}
a:hover {background:#4169E1;color:#fff}
* {margin-bottom:3px;}
</style>
</head>
<body>
<!--#include virtual="/css.inc"-->
出错了！你的网址输入为空，请从新输入！
<hr><a href="/liul/chakan1.asp?us=<%=server.urlencode(request("us"))%>">查看源码</a>|<a href="/liul/INDEX.asp?">浏览首页</a><br/>
<a href="<%=ur%>">查看原址</a>报时:<%=time%><hr>
<form action="go2.asp" method="get"><input type="text" name="us" value="<%=ur%>" /><br/><input type="submit" value="进入查看" /></form><hr>
</body>
</html>
<%
else
urt1=replace(ur,"http://","")
ura=replace(urt1,"/","")
if ura=urt1 then
ur1=urt1+"/"
else
ur1=urt1
end if
length1=Instr(ur1,"/")
length2=Instrrev(ur1,"/")
ur2=left(ur1,length1)
ur3=left(ur1,length2)
wstr = getHTTPPage(ur)
body = wstr
body = replace(body,"gb2312","utf-8")
body = replace(body,"Windows-1252","utf-8")
body = replace(body,"'","""")
body = replace(body,"<img src=""/","<img src='http://"&ur2&"")
body = replace(body,"<img src=""http://","<img src='http://") 
body = replace(body,"<img src=""","<img src=""http://"&ur3&"")
body = replace(body,"<a href=""/","<a href='/liul/go2.asp?us=http://"&ur2&"")
body = replace(body,"<a href=""http://","<a href='/liul/go2.asp?us=http://") 
body = replace(body,"<a href=""","<a href=""/liul/go2.asp?us=http://"&ur3&"")
body = replace(body,"<go href=""/","<go href='/liul/go2.asp?us=http://"&ur2&"")
body = replace(body,"<go href=""http://","<go href='/liul/go2.asp?us=http://") 
body = replace(body,"<go href=""","<go href=""/liul/go2.asp?us=http://"&ur3&"")
body = replace(body,"'","""")
body = replace(body,"&amp;","%26")
body = replace(body,"&","%26")
body = replace(body,"</body>","")
body = replace(body,"</html>","") 
if  body="" then
body="出错了！你的访问的网页失败，请从新输入！<hr><br/>-----------<br/>"
else
body=body
end if
%>
<%=body%>
<hr><a href="/liul/chakan1.asp?us=<%=server.urlencode(request("us"))%>">查看源码</a>|<a href="/liul/INDEX.asp?">浏览首页</a><br/>
<a href="<%=ur%>">查看原址</a>报时:<%=time%><hr>
<form action="go2.asp" method="get"><input type="text" name="us" value="<%=ur%>" /><br/><input type="submit" value="进入查看" /></form><hr>
</body>
</html>
<%
End IF
%>

